home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Word / C / CoTemplatesDemo.cpt / Special Effects / Spiral Text / Spiral Text
Encoding:
Text File  |  1988-11-22  |  624 b   |  47 lines  |  [CTPP/CTMP]
  1. /pi 3.1415923 def
  2. /str1 ( ) def
  3.  
  4. /spiral {
  5.     gsave
  6.     /rad exch def
  7.     /ptsize exch def
  8.     /str exch def
  9.     /xrad rad ptsize 4 div add def
  10.  
  11.     180 rotate
  12.  
  13.     str{
  14.         /charcode exch def
  15.         str1 0 charcode put
  16.         str1 angshow
  17.     .995 .995 scale
  18.     } forall
  19.      grestore
  20. } def
  21.  
  22. /angshow {
  23.     /char exch def
  24.     /angle char stringang def
  25.     gsave
  26.       angle 2 div neg rotate
  27.     rad 0 translate
  28.     -90 rotate
  29.     char stringwidth pop 2 div neg 0 moveto
  30.     char show 
  31.     grestore
  32.     angle neg rotate
  33. } def
  34.  
  35. /stringang {
  36.     stringwidth pop
  37.     2 xrad mul pi mul
  38.     div 360 mul
  39. } def
  40.  
  41. 300 400 translate
  42. Fontname1 findfont 20 scalefont setfont
  43. 1 1 scale
  44. topline
  45. 20 65 spiral
  46. showpage
  47.